home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b4.d64 / solution4.14 < prev    next >
Text File  |  2007-02-28  |  366b  |  15 lines
  1. 0010 DIM PLAY$ OF 1, COMP$ OF 1, RESULT$ OF 2
  2. 0020 INPUT "TYPE 1 OR 2:": PLAY$
  3. 0030 COMP$:=CHR$(RND(49,50))
  4. 0040 RESULT$:=PLAY$+COMP$
  5. 0050 CASE RESULT$ OF
  6. 0060 WHEN "11"
  7. 0070 PRINT "YOU PAY ME ONE PENNY"
  8. 0080 WHEN "12","21"
  9. 0090 PRINT "I PAY YOU TWO PENCE"
  10. 0100 WHEN "22"
  11. 0110 PRINT "YOU PAY ME THREE PENCE"
  12. 0120 OTHERWISE 
  13. 0130 PRINT "ERROR IN INPUT"
  14. 0140 ENDCASE 
  15.